(PC-do-completion): Exclude ./ and ../ from completion.

diff --git a/lisp/complete.el b/lisp/complete.el
index 4aaffa76b0ca152a84d6ce038f52c0ab406fb371..e51a9f3340211b62092f0213a6442aabe284ef8d 100644 (file)
--- a/lisp/complete.el
+++ b/lisp/complete.el
@@ -562,10 +562,12 @@ of `minibuffer-completion-table' and the minibuffer contents.")
                                  "\\|")
                                 "\\)\\'")))
 
-              ;; Check if there are any without an ignored extension
+              ;; Check if there are any without an ignored extension.
+              ;; Also ignore `.' and `..'.
               (setq p nil)
               (while p2
                 (or (string-match PC-ignored-regexp (car p2))
+                    (string-match "\\(\\`\\|/\\)[.][.]?/?\\'" (car p2))
                     (setq p (cons (car p2) p)))
                 (setq p2 (cdr p2)))